home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / ezstart.new / RUNBINK.BAT < prev    next >
Encoding:
DOS Batch File  |  1990-11-30  |  1.9 KB  |  110 lines
  1. Echo Off
  2. Rem RUNBINK.BAT for EZPOINT point installation
  3. Rem          Written by Ron Bemis
  4. {drive}
  5. CD \Bink
  6. If Not "%1" == "" Goto %1
  7.  
  8. :Bink
  9. Key-Fake "C"
  10. BTBig Unattended
  11. :TestLevel
  12. If ErrorLevel 255 Goto Bink
  13. If ErrorLevel 200 Goto MailIn
  14. If ErrorLevel 150 Goto MakePoll
  15. If ErrorLevel 100 Goto F10
  16. If ErrorLevel  90 Goto F9
  17. If ErrorLevel  80 Goto F8
  18. If ErrorLevel  70 Goto F7
  19. If ErrorLevel  60 Goto F6
  20. If ErrorLevel  50 Goto F5
  21. If ErrorLevel  40 Goto F4
  22. If ErrorLevel  30 Goto F3
  23. If ErrorLevel  20 Goto F2
  24. If ErrorLevel  10 Goto F1
  25. Goto Exit
  26.  
  27. :MailIn
  28. :F6
  29. EZPoint /B
  30. Goto Menu
  31.  
  32. :MakePoll
  33. :F1
  34. If Exist {root}\Out\*.?$? Del {root}\Out\*.?$?
  35. Echo.>>{bosshex}.DLO
  36. Goto Bink
  37.  
  38. :ScanAll
  39. :F2
  40. EZPoint /B /X
  41. Goto Menu
  42.  
  43. :Get
  44. :F3
  45. Echo Enter file(s) to request, Enter by itself when done:
  46. :FReq
  47. RSet X=file(string(Filename:,12))
  48. RSet level(len(%X%))
  49. If Not Errorlevel 1 Goto Menu
  50. Echo %X%>>{bosshex}.REQ
  51. Goto FReq
  52.  
  53. :Send
  54. :F4
  55. Echo Enter file(s) to send, Enter by itself when done:
  56. :FSend
  57. RSet X=string(Filename:)
  58. RSet level(len(%X%))
  59. If Not Errorlevel 1 Goto Menu
  60. RSet X=full(%X%)
  61. RSet level(exist(%X%))
  62. If Errorlevel 1 Goto FSendOK
  63. Echo File not found
  64. Goto FSend
  65. :FSendOK
  66. Echo %X%>>{bosshex}.DLO
  67. Goto FSend
  68.  
  69. :Reader
  70. :F5
  71. EZPoint
  72. Goto Menu
  73.  
  74. :F7
  75. EZPoint /B /R
  76. Goto Menu
  77.  
  78. :AddConf
  79. :F8
  80. RSet X=up(string(Name of conference to add [Enter to quit]:,15))
  81. RSet level(len(%X%))
  82. If Not Errorlevel 1 Goto Menu
  83. Echo  %X%>Message.Txt
  84. Echo  --->>Message.Txt
  85. EZPoint E AreaFix ^ {password}^ G Y
  86. Goto AddConf
  87.  
  88. :DelConf
  89. :F9
  90. RSet X=up(string(Name of conference to delete [Enter to quit]:,15))
  91. RSet level(len(%X%))
  92. If Not Errorlevel 1 Goto Menu
  93. :DelOK
  94. Echo  -%X%>Message.Txt
  95. Echo  --->>Message.Txt
  96. EZPoint E AreaFix ^ {password}^ G Y
  97. Goto DelConf
  98.  
  99. :F10
  100. Lander
  101. Goto Exit
  102.  
  103. :Menu
  104. RSet level(eqs(-N,-up(char(Re-Start Binkley?,YyNn,3))))
  105. If Errorlevel 1 Goto Exit
  106. Goto Bink
  107.  
  108. :Exit
  109. Echo.
  110.